home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok37 / skrÄbel / sc_computer-mod-asm.zoo / Skräbel-src / sc_Computer-Mod.ASM / SpielZugChar.ASM < prev    next >
Assembly Source File  |  1990-03-19  |  1KB  |  61 lines
  1. ;(*****************************************************************************
  2. ;
  3. ;  :Program.       SpielZugChar.ASM
  4. ;  :Author.        Georg Brünsing
  5. ;  :Address.       Grechte 2, D-4156 Willich 3
  6. ;  :Phone.         02156/7534
  7. ;  :ShortCut.      gb
  8. ;  :Support.       -
  9. ;  :Version.       1.0
  10. ;  :Date.          20-Feb-89
  11. ;  :Copyright.     PD
  12. ;  :Language.      Assembler
  13. ;  :Translator.    Profimat / DATA BECKER
  14. ;  :Imports.       -
  15. ;  :Update.        -
  16. ;  :History.       -
  17. ;  :ModHistory.    -
  18. ;  :Contents.      Assembler Source für Skräbel
  19. ;  :Remark.        -
  20. ;  :Usage.         -
  21. ;
  22. ;*****************************************************************************)
  23.  
  24.  
  25.  
  26.    INCLUDE "Rec.ASM"
  27.  
  28. SpielZugChar:
  29. ; Eingang in A2 = ComputerMsgPtr
  30. ;         in D0 = x
  31. ;         in D1 = y
  32. ; Ausgang in D0 = CHAR
  33. \ComMsgPtr  EQUR A2
  34. \ZugRing    EQUR A1
  35. \RSpZug     EQUR A0
  36. \x          EQUR D0
  37. \y          EQUR D1
  38. \Char       EQUR D0
  39. \Off        EQUR D2
  40. \Schleife   EQUR D2
  41.    LEA      ZugRing(\ComMsgPtr) , \ZugRing
  42.    MOVE.W   AkZugRing(\ComMsgPtr) , \Off
  43.    SUBQ.W   #BeginZugRing , \Off
  44.    MULU     #ZugRingSize , \Off
  45.    LEA      (\ZugRing,\Off.W) , \ZugRing
  46.    LEA      RSpZug(\ZugRing) , \RSpZug
  47.    MOVEQ    #MaxSpZuege-1 , \Schleife
  48. \FOR:
  49.    CMP.W    XPos(\RSpZug) , \x
  50.    BNE.S    \END_FOR
  51.    CMP.W    YPos(\RSpZug) , \y
  52.    BNE.S    \END_FOR
  53.    MOVE.B   char(\RSpZug) , \Char
  54.    RTS
  55. \END_FOR:
  56.    ADDQ.L   #SpielerZugSize , \RSpZug
  57.    DBRA     \Schleife , \FOR
  58.    TRAP     #1
  59.    END
  60.  
  61.